home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dsl100 / dsl.frm < prev    next >
Text File  |  1995-12-05  |  3KB  |  100 lines
  1. VERSION 2.00
  2. Begin Form dosshell 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "DSL"
  6.    ClientHeight    =   1590
  7.    ClientLeft      =   3765
  8.    ClientTop       =   1830
  9.    ClientWidth     =   1815
  10.    FontBold        =   0   'False
  11.    FontItalic      =   0   'False
  12.    FontName        =   "Times New Roman"
  13.    FontSize        =   8.25
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    Height          =   1995
  17.    Icon            =   DSL.FRX:0000
  18.    Left            =   3705
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   1590
  23.    ScaleMode       =   0  'User
  24.    ScaleWidth      =   1815
  25.    Top             =   1485
  26.    Width           =   1935
  27.    Begin CommandButton EndShell 
  28.       Caption         =   "End"
  29.       Height          =   384
  30.       Left            =   1152
  31.       TabIndex        =   1
  32.       Top             =   1024
  33.       Width           =   512
  34.    End
  35.    Begin CommandButton Launch 
  36.       Caption         =   "Launch"
  37.       Height          =   384
  38.       Left            =   128
  39.       TabIndex        =   0
  40.       Top             =   1024
  41.       Width           =   900
  42.    End
  43.    Begin Label Fremem 
  44.       Alignment       =   2  'Center
  45.       Height          =   390
  46.       Left            =   15
  47.       TabIndex        =   3
  48.       Top             =   480
  49.       Width           =   1770
  50.    End
  51.    Begin Label WinMode 
  52.       Alignment       =   2  'Center
  53.       Height          =   300
  54.       Left            =   45
  55.       TabIndex        =   2
  56.       Top             =   60
  57.       Width           =   1740
  58.    End
  59. End
  60. DefInt A-Z
  61.  
  62. Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags) As Long
  63. Declare Function GetWinFlags Lib "Kernel" () As Long
  64.  
  65. Sub EndShell_Click ()
  66.   End
  67. End Sub
  68.  
  69. Sub Form_Load ()
  70.   winflags = GetWinFlags()
  71.   Select Case winflags And &H30
  72.   Case &H10
  73.     WinMode.Caption = "Standard Mode"
  74.   Case &H20
  75.     WinMode.Caption = "386 Enhanced Mode"
  76.   Case Else
  77.     WinMode.Caption = "UI [" + Hex$(winflags) + "] mode"
  78.   End Select
  79.   Fremem.Caption = Format$(GetFreeSpace(0), "###,###,###") + " bytes"
  80. End Sub
  81.  
  82. Sub Launch_Click ()
  83.   X = Shell("command.com")
  84.   winflags = GetWinFlags()
  85.   Select Case winflags And &H30
  86.   Case &H10
  87.     WinMode.Caption = "Standard Mode"
  88.   Case &H20
  89.     WinMode.Caption = "386 Enhanced Mode"
  90.   Case Else
  91.     WinMode.Caption = "UI [" + Hex$(winflags) + "] mode"
  92.   End Select
  93.   Fremem.Caption = Format$(GetFreeSpace(0), "###,###,###") + " bytes"
  94. End Sub
  95.  
  96. Sub Shellout_Click ()
  97.   X = Shell("C:\command.com")
  98. End Sub
  99.  
  100.